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APPENDIX A 



PROCEDURE Create_Root_Nocle (root_j)tr, node_vaiue) 
BEGIN 

Allocate^Node (root__ptr, node); 
Increment (node_counter); 
node[root_ptr]. counter := node^counter; 
node[root_ptr].value := node_value; 
node[root_ptr].sibling_j)ointer := nil; 
node[rootj)tr].childj)ointer := nil; 
node[root _ptr].parent_pointer := nil; 
END. 



APPENDIX B 



PROCEDURE Insert_Node (parent jp% node_value); 
BEGIN 

INTEGER node_ptr, ptr; 

AllocateNode (node_ptr, node); 

Increment (node_counter); 

node[node_ptr]. counter := node_counter; 

node[node_ptr]. value := node_value; 

ptr := node[parent_j)tr].chiIdj)ointer; 

node[parentj)tr].chiIdj)ointer := node_ptr; 

node[node_ptr].sibling_pointer :=ptr; 

node[nodej3tr]xhild_j)ointer :=nil; 

node[node_ptr].parent_pointer := parent_ptr; 
END. 
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APPENDIX CI 

PROCEDURE Delete_Node (node_ptr); 

% This version of DeleteJSTode requires node to be deleted have no offspring. 
BEGIN 

IF node[node_ptr].child_pointer = nil THEN 
BEGIN 

node[node[node_ptr].parent_pointer].child_pointer := 

node[node_ptr] . sibling_pointer; 
Deallocate_Node (node_ptr); 
END ELSE 

RETURN ("error: cannot delete node while offspring exist") 
END. 

APPENDIX C2 

PROCEDURE DeleteJMode (nodejrtr); 

% This version of Delete_Node deletes the node and its entire offspring. 
BEGIN 

PROCEDURE Delete_Subtree (ptr); 
BEGIN 

F node[ptr].child jointer o nil THEN 

DeleteSubtree (node[ptr].child_pointer); 
IF node[ptr].sibling_pointer o nil THEN 

DeleteSubtree (node[ptr] . sibling_pointer); 
DeallocateNode (ptr); 
END; 

IF node[node_ptr].child_pointer o nil THEN 

DeleteSubtree (node[node__ptr] . child_pointer); 
node[node[node_ptr].parent_pointer].child_pointer := 

node[node_ptr] . sibling_pointer; 
Deallocate_Node (node_ptr); 
END. 
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APPENDK D 



PROCEDURE Preorder_Traverse_Tree (node_ptr); 
BEGIN 

DISPLAY (node[node_ptr] .node_value); 

IF node[node_ptr].child_pointer o nil THEN 

Preorder_Traverse_Tree(node[node_ptr].child_pointer); 
IF node[node_ptr].sibling_pointer o nil THEN 

Preorder_Traverse_Tree(node[node_ptr].sibling_point«-); 
END. 



APPENDIX E 

PROCEDURE Postorder_Traverse_Tree (node_ptr); 
I" % Postorder traversal of a general tree is equivalent to inorder traversal of the 

G % binary tree that represents that general tree. 

I! BEGIN 

^ JF node[node_ptr].child_pointer o nil THEN 

s}! PostorderTraverseTree (node[node_ptr].child_pointer); 

^ DISPLAY (node[node_ptr].node_value); 

III IF node[nodej)tr].sibling_pointer <> nil THEN 

I Postorder_Trav«^_Tree (node[node_ptr].sibling_pointer); 

END. 

b 
m 
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APPENDIX F 

PROCEDURE Find_First_Node (extjrtr, ext_nodes, ext_pomters, level, 

int_pointers); 

BEGIN 

ARRAY ancestor_nodes[0:inaxlevels]; 
INTEGER savejevel; 
BOOLEAN seeking; 

% find depth of tree 
level :=-!; 
ptr := ext_node_ptr; 
WHILE ptro nil DO 
BEGIN 
level := 

ptr := e5ct_node_aTray[ptr].parent_ptr; 

END; 

savejevel := level; 

% retrieve specified lineage 
IF level >= 0 THEN 
BEGIN 

ancestor_nodes[level+l].counter := maxint; 

ptr := ext_node_ptr; 
WHILE ptr o nil DO 
BEGIN 

ancestor_nodes[level] := ext_nodes[ptr]; 
level := *-l; 

ptr ;= ext_node_array[ptr].parent_ptr; 
END; 
level := 0; 

int_pointers[level] := root_ptr; 
END; 

% establish continuation lineage (setup simulated recursion stack) 
seeking := TRUE; 
WHILE seeking DO 
BEGIN 
IF level < 0 THEN 

BEGIN % at end of tree or no start pointer - start at root 
seeking := FALSE; 
level := 0; 

int_pointers[level] := root_ptr; 
END ELSE 

IF int_pointers[level] = nil THEN 
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BEGIN % no nodes at this level - drop back level and get next sibling 
level :=*-!; 
IF level >= 0 THEN 

intjpointers[level] := node[int_pointers[levell]. sibling ptr: 
ENDELSE 

IF (node[int_pointers[level]].counter > ancestors[level]. counter) THEN 
BEGIN % already visited this node - get next sibling 

int_pointers[level] := node[ptr].sibling_ptr; 
ENDELSE 

IF (node[int_pointers[level]].counter = ancestors[level]. counter) THEN 
BEGIN % node exists - increase level and get child 
level ;= *+l; 

int_pointers[level] :=node[int_pointersrievel-l]].child ptr- 
ENDELSE 

BEGIN % found first node at this level not yet visited 

seeking := FALSE; 
END; 
END; 
END; 
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APPENDIX G 

INTERFACE (Single_Step_Preorder_Traverse_Tree, 
Partial_Preorder_Traverse_Tree); 



PROCEDURE Single_Step_Preorder_Traverse Tree (ext node ptr, ext nodes)- 
BEGIN ~ - -i- ' - h 

Find_First_Node (ext_node_ptr, ext nodes, 

level, int_pointers); 
Insert_First_Lineage (ext_node_pfr, ext_ptr, ext_nodes, ext_pointers, 
level, int_pointers); 

END: 



PROCEDURE Partial_Preorder_Traverse Tree (ext node ptr, ext nodi 
BEGIN 

INTEGER ext_ptr, level; 
BOOLEAN finished; 

ARRAY int_pointers,ext_pointers[0:maxlevels]; 

Find_First_Node (ext_node_ptr, ext_nodes, 

level, int_pointers); 
Insert_First_Lineage (ext_node_ptr, ext_ptr, ext_nodes, ext_pointers, 

level, int_pointers); 
finished := FALSE; 
WHILE NOT finished DO 
BEGIN 

Find_Next_Node (level, int_pointers, ext_pointers); 

IF level >= 0 THEN 

BEGE^ 

Insert_Next_Node (ext_ptr, ext_nodes, ext_pointers, 

level, intjpointers); 
IF ext_ptr+l = SIZE (ext_nodes) THEN 
finished := TRUE; % no more nodes fit into external tree 
END 
ELSE 

finished := TRUE; % traversal of the tree finished 

END; 
END; 
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APPENDIX H 

PROCEDURE FindJNext^Node (level, int_j)ointers, ext_pointers); 
BEGIN 

% simulate recursion - traverse child subtree, then traverse sibling subtree 
level := 

intj)ointers[Ievel] := node[int_j)ointers[leveH]]xhildj)tr; 
WHILE (level >= 0) CAND 

(int_pointers[level] = nil) DO 
BEGIN 

ext_pointers[level] := nil; 

level 

IF level => 0 THEN 
intj)ointers[level] := node[int_pointers[level]].sibling_ptr; 
END; 
END; 

APPENDIX I 

PROCEDURE Insert_First_Lineage (ext jiode_j)tr, ext jptr, ext_nodes, 
ext jointers, level, int_pointers); 
BEGIN 
ext_ptr := 0; 

ext_nodes[ext__ptr] := node[int_pointer[ext_j)tr]]; 

WHILE ext_j)tr < level DO 

BEGIN 

ext_ptr := *+l; 

ext_node[extjptr] := node[int_j)ointer[ext_ptr]]; 

% fix links; set non-nil sibling pointers to "inuse" flag value 

IF ext_node[ext_ptr].sibling_ptr <> nil THEN 

ext_node[ext_ptr].sibIing_ptr := inuse; 
ext_node[ext_ptr-l]xhild_ptr := ext_ptr; 
ext_node[ext_j)tr]. parent jptr := ext_ptr-l; 
ext_pointers[ext_j)tr] := extj)tr; 
END; 

% set non-nil child pointer to "inuse" flag value 
IF ext__node[ext_ptr].child_j)tr o nil THEN 

ext_node[ext_ptr].child j)tr := inuse; 
ext_node_ptr := extj)tr; 
END; 



31 



USYS-0095/TN226 



PATENT 



APPENDIX J 

PROCEDURE Insert_Next_Node (ext_j)tr, ext_nodes, ext_j)ointers, level, 
int_pointers); 
BEGIN 
extjptr := *+l; 

ext_node[extjptr] :=node[intj)ointers[level]; 

% fix parent's link or previous sibling's link to point to this node 

IF ext_pointers[level] = nil THEN 

ext_node[extj)ointers[leveH]].childj)tr := extjptr 
ELSE 

ext_node[ext_pointers[level]]. sibling j)tr := extj)tr; 
% set non-nil sibling pointer to "inuse" flag 
IF ext_node[ext_j)tr].sibling_j)tr o nil THEN 

ext_node[ext__ptr].siblingj)tr := inuse; 
% set non-nil child pointer to "inuse" flag value 
IF ext_^node[extj)tr].child_j)tr o nil THEN 

ext_node[ext_j)tr].child_ptr := inuse; 
% set parent link 

extjnode[ext_ptr].parent_ptr extj?ointers[level-l]; 
ext_pointers[ext_ptr] := ext__ptr; 
END; 
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